home *** CD-ROM | disk | FTP | other *** search
/ Golf Digest's Best Places to Play / Golf Digest's Best Places to Play.iso / diamond / dbrs_ibm.dir / 00031_Script_SpecialScript < prev    next >
Text File  |  1995-05-15  |  2KB  |  58 lines
  1. on exitFrame
  2.   go to marker(0)+2
  3. end
  4.  
  5.  
  6. on mouseDown
  7.   set ButtonNum=the clickOn
  8.   if ButtonNum>0 then
  9.     set ButtonName=the name of cast (the castNum of sprite ButtonNum)
  10.     if (ButtonNum >1) and (ButtonNum < 8) then
  11.       WhatPick(ButtonNum)  
  12.     end if
  13.     if chars(ButtonName,1,6) = "ToMain" then
  14.       if PressBtn(ButtonNum) then
  15.         AllPuppetsOff
  16.         go to marker(0)+3
  17.       end if
  18.     end if
  19.     if chars(ButtonName,1,4) = "Help" then
  20.       if PressBtn(ButtonNum) then
  21.         showHelp
  22.         puppetsprite ButtonNum, true
  23.         set the castNum of sprite ButtonNum to the number of cast (ButtonName)
  24.         puppetsprite ButtonNum, false
  25.       end if
  26.     end if
  27.   end if
  28. end mouseDown
  29.  
  30. on WhatPick ButtonNum
  31.   puppetsound 0
  32.   set ButtonName=the name of cast (the castNum of sprite ButtonNum)
  33.   repeat with i=2 to 7
  34.     puppetSprite i, false
  35.   end repeat
  36.   updateStage
  37.   puppetSprite ButtonNum, true
  38.   puppetSprite 8, true
  39.   set the castNum of sprite ButtonNum to the number of cast (ButtonName & "Down")
  40.   updateStage
  41.   set the castNum of sprite 8 to the number of cast (ButtonName & "Big")
  42.   if ButtonNum=3 then showCode
  43.   puppetsound ButtonName & "Sound"
  44.   updateStage
  45. end WhatPick
  46.  
  47. on showCode
  48.   puppetsound "FirstCutYeahSound"
  49.   puppetsprite 40, true
  50.   set the castNum of sprite 40 to the number of cast ("Code2")
  51.   updateStage
  52.   repeat while soundbusy(1)
  53.     nothing
  54.   end repeat
  55.   set the castNum of sprite 40 to the number of cast ("HelpDot")
  56.   puppetsprite 40, false
  57. end showCode
  58.